let rec fib n = if (n < 2) then n else (fib (n - 2)) + (fib (n - 1));;

print_int (fib 32);;
print_string "\n";;
